mode=proof; fontsetup;
defaultpen:=pencircle;
z1=(.5,.5); z2=(40.5,80.5); z3=(150.5,100.5); z4=(300.5,.5);

def makedot(expr x)= special " 1";
 numspecial xpart x; numspecial ypart x enddef;

def recurse(expr l,a,b,c,d)=
if l<5: begingroup save e,f,g,h,i,j; pair e,f,g,h,i,j;
draw a..b; e=(a+b)/2; makedot(e);
draw b..c; f=(b+c)/2; makedot(f);
draw c..d; g=(c+d)/2; makedot(g);
draw e..f; h=(e+f)/2; makedot(h);
draw f..g; i=(f+g)/2; makedot(i);
draw h..i; j=(h+i)/2; makedot(j);
recurse(l+1,a,e,h,j); recurse(l+1,j,i,g,d);
endgroup;
fi enddef;

makedot(z1); makedot(z2); makedot(z3); makedot(z4); recurse(0,z1,z2,z3,z4);
shipit;
end
mode=lowres; mag=180/200; % Boise
fontsetup;
designsize:=10;

transform t;
(0,0) transformed t=(0,0);
(0,100) transformed t=(0,250/36pt);
(100,0) transformed t=(250/36pt,0);
pen q; q=pencircle scaled 36 scaled .4 transformed t;

vardef top primary x=x+(0,r) enddef;
vardef bot primary x=x-(0,r) enddef;
vardef lft primary x=x-(r,0) enddef;
vardef rt primary x=x+(r,0) enddef;
r=.4*36;

z1=(0,100); z2=(100,100); z3=(200,100);
z4=(0,0); z5=(100,0); z6=(200,0);

clearit;
draw(z1..z6)transformed t withpen q;
draw(z2..z5)transformed t withpen q;
draw(z3..z4)transformed t withpen q;
charcode:=ord"A";
chardw:=xpart(z3 transformed t);
charht:=250/36; charwd:=500/36;
shipit;

numeric x[],y[];

top z1=(0,100); top z2=(100,100); top z3=(200,100);
bot z4=(0,0); bot z5=(100,0); bot z6=(200,0);

clearit;
draw(z1..z6)transformed t withpen q;
draw(z2..z5)transformed t withpen q;
draw(z3..z4)transformed t withpen q;
charcode:=ord"B";
chardw:=xpart(z3 transformed t);
charht:=250/36; charwd:=500/36;
shipit;

numeric x[],y[];

top lft z1=(0,100); top z2=(100,100); top rt z3=(200,100);
bot lft z4=(0,0); bot z5=(100,0); bot rt z6=(200,0);

clearit;
draw(z1..z6)transformed t withpen q;
draw(z2..z5)transformed t withpen q;
draw(z3..z4)transformed t withpen q;
charcode:=ord"C";
chardw:=xpart(z3 transformed t);
charht:=250/36; charwd:=500/36;
shipit;


end